home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / mint / netlib / lib / listen.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-12-27  |  581 b   |  39 lines
  1. /*
  2.  *    listen() emulation for MiNT-Net, (w) '93, kay roemer.
  3.  */
  4.  
  5. #include "socklib.h"
  6. #ifdef KERNEL
  7. #include "kerbind.h"
  8. #else
  9. #include <mintbind.h>
  10. #endif
  11. #include "sys/socket.h"
  12. #include "mintsock.h"
  13.  
  14. #ifndef KERNEL
  15. extern int errno;
  16. #endif
  17.  
  18. int
  19. listen (fd, backlog)
  20.     int fd, backlog;
  21. {
  22.     struct listen_cmd cmd;
  23.     int r;
  24.  
  25.     cmd.cmd =     LISTEN_CMD;
  26.     cmd.backlog =     backlog;
  27.  
  28. #ifndef KERNEL
  29.     r = Fcntl (fd, (long)&cmd, SOCKETCALL);
  30.     if (r < 0) {
  31.         errno = -r;
  32.         return -1;
  33.     }
  34.     return 0;
  35. #else
  36.     return f_cntl (fd, (long)&cmd, SOCKETCALL);
  37. #endif
  38. }
  39.